object DMSady: TDMSady
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 201
  Width = 289
  object ADQSady: TADQuery
    SQL.Strings = (
      'select idSaduOgloszenia, chSadOgloszenia '
      'from SadyOgloszenia'
      'where chSadOgloszenia like '#39'%krs%'#39
      'order by chSadOgloszenia')
    Left = 24
    Top = 16
  end
  object ADQSadPoprzedni: TADQuery
    SQL.Strings = (
      'set forceplan on'
      'select S.chSadOgloszenia '
      'from Metryki M'
      
        'inner join SadyOgloszenia S on S.idSaduOgloszenia = M.idSaduOglo' +
        'szenia'
      
        'where (M.dtDataWpisu < :data or (M.dtDataWpisu = :data and M.chP' +
        'ublikator16 < :pub))'
      '  and M.inKRS = :krs'
      '  and M.chPublikator like '#39'M.SiGKRS%'#39
      'order by M.dtDataWpisu desc'
      'set forceplan off')
    Left = 112
    Top = 12
    ParamData = <
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end
      item
        Name = 'KRS'
        ParamType = ptInput
      end>
  end
  object ADQZmienSad: TADQuery
    SQL.Strings = (
      'update Metryki '
      '   set idSaduOgloszenia = :ids '
      'where idMetryki = :idm')
    Left = 216
    Top = 16
    ParamData = <
      item
        Name = 'IDS'
        ParamType = ptInput
      end
      item
        Name = 'IDM'
        ParamType = ptInput
      end>
  end
  object ADQidSadu: TADQuery
    SQL.Strings = (
      'select idSaduOgloszenia '
      'from SadyOgloszenia '
      'where chSadOgloszenia = :sad')
    Left = 24
    Top = 88
    ParamData = <
      item
        Name = 'SAD'
        ParamType = ptInput
      end>
  end
end
